R Markdown

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
## ✓ ggplot2 3.3.5     ✓ purrr   0.3.4
## ✓ tibble  3.1.5     ✓ dplyr   1.0.7
## ✓ tidyr   1.1.4     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   `<noscript><meta http-equiv='refresh' content='0;url=https://pge-energydatarequest.com/nojswarn'></noscript><!DOCTYPE html>` = col_character()
## )
## Warning: 1279 parsing failures.
## row col           expected actual                                                file
## 104  -- delimiter or quote      : 'https://pge-energydatarequest.com/public_datasets'
## 104  -- delimiter or quote      a 'https://pge-energydatarequest.com/public_datasets'
## 104  -- delimiter or quote      : 'https://pge-energydatarequest.com/public_datasets'
## 104  -- delimiter or quote      t 'https://pge-energydatarequest.com/public_datasets'
## 104  -- delimiter or quote      : 'https://pge-energydatarequest.com/public_datasets'
## ... ... .................. ...... ...................................................
## See problems(...) for more details.
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2017_Q1_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2017_Q2_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2017_Q3_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2017_Q4_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2018_Q1_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2018_Q2_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2018_Q3_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2018_Q4_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2019_Q1_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2019_Q2_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2019_Q3_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2019_Q4_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2020_Q1_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2020_Q2_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2020_Q3_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2020_Q4_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "numeric"
## [1] "PGE_2021_Q1_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "PGE_2021_Q2_ElectricUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALKWH = col_number(),
##   AVERAGEKWH = col_number()
## )
## [1] "numeric"
## [1] "numeric"
## [1] "numeric"
## [1] "PGE_2017_Q1_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2017_Q2_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2017_Q3_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_double()
## )
## [1] "PGE_2017_Q4_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2018_Q1_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2018_Q2_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2018_Q3_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_double()
## )
## [1] "PGE_2018_Q4_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2019_Q1_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2019_Q2_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2019_Q3_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2019_Q4_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2020_Q1_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2020_Q2_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2020_Q3_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_double()
## )
## [1] "PGE_2020_Q4_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2021_Q1_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "PGE_2021_Q2_GasUsageByZip.csv"
## 
## ── Column specification ────────────────────────────────────────────────────────
## cols(
##   ZIPCODE = col_double(),
##   MONTH = col_double(),
##   YEAR = col_double(),
##   CUSTOMERCLASS = col_character(),
##   COMBINED = col_character(),
##   TOTALCUSTOMERS = col_number(),
##   TOTALTHM = col_number(),
##   AVERAGETHM = col_number()
## )
## [1] "numeric"
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
## [1] "Elec- Agricultural" "Elec- Commercial"   "Elec- Industrial"  
## [4] "Elec- Residential"